home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / RAYTRACE / RAYTRACE.D < prev    next >
Encoding:
Modula Definition  |  1991-03-28  |  2.8 KB  |  84 lines
  1. DEFINITION MODULE RayTrace;
  2.  
  3.  
  4. CONST Unendlich=1.0E+20;
  5.       MaxObj   =5;
  6.       
  7. TYPE  LFeld=ARRAY [0..MaxObj] OF LONGREAL;
  8.  
  9.       
  10. (* ------------------------------------------------ *)
  11.  
  12. PROCEDURE Ebene1schn (VAR Pktz,Vecz:LONGREAL ; VAR Index:INTEGER ;
  13.                       VAR Lambda:LFeld );
  14.    
  15.  
  16. PROCEDURE Ebene1weiter (VAR Pktx,Pkty,Vecx,Vecy:LONGREAL ;
  17.                         VAR Lambda:LFeld ;
  18.                         VAR Index,Farbe,Untersuchungsende:INTEGER );
  19.  
  20.  
  21. PROCEDURE Kugel1schn (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  22.                           Kug1pktx,Kug1pkty,Kug1pktz,Kug1rquad:LONGREAL;
  23.                       VAR Lambda:LFeld;
  24.                       VAR Index :INTEGER );
  25.                       
  26.  
  27. PROCEDURE Kugel1weiter (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  28.                             Kug1pktx,Kug1pkty,Kug1pktz,Kug1rquad:LONGREAL;
  29.                         VAR Lambda:LFeld;
  30.                         VAR Index,Farbversch:INTEGER );
  31.  
  32. PROCEDURE Ebene2schn ( VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  33.                            Zyl1pktx,Zyl1pkty,Zyl1rquad,Zyl1hoehe:LONGREAL ;
  34.                        VAR Lambda:LFeld;
  35.                        VAR Index :INTEGER );
  36.                        
  37.  
  38. PROCEDURE Ebene2weiter ( VAR Untersuchungsende,Farbe:INTEGER );
  39.  
  40.  
  41. PROCEDURE Glasz1schn (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  42.                           Zyl1pktx,Zyl1pkty,Zyl1rquad,Zyl1hoehe:LONGREAL;
  43.                       VAR Lambda:LFeld;
  44.                       VAR Index :INTEGER );
  45.                       
  46.  
  47. PROCEDURE Glasz1weiter (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  48.                             Zyl1pktx,Zyl1pkty,Zyl1rquad,
  49.                             Brechindex:LONGREAL;
  50.                         VAR Lambda:LFeld;
  51.                         VAR Index,Farbversch:INTEGER );
  52.  
  53.  
  54. PROCEDURE Zylin1schn (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  55.                           Zyl1pktx,Zyl1pkty,Zyl1hoehe,Zyl1rquad:LONGREAL;
  56.                       VAR Lambda:LFeld;
  57.                       VAR Index :INTEGER );
  58.                       
  59.  
  60. PROCEDURE Zylin1weiter (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  61.                             Zyl1pktx,Zyl1pkty,Zyl1rquad:LONGREAL;
  62.                         VAR Lambda:LFeld;
  63.                         VAR Farbversch,Index:INTEGER );
  64.                         
  65.  
  66. PROCEDURE Drehk1schn (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  67.                           Dk1pktx,Dk1pkty,Dk1stquad,Dk1hoehe:LONGREAL;
  68.                       VAR Lambda:LFeld;
  69.                       VAR Index :INTEGER );
  70.                       
  71.  
  72. PROCEDURE Drehk1weiter (VAR Pktx,Pkty,Pktz,Vecx,Vecy,Vecz,
  73.                             Dk1pktx,Dk1pkty,Dk1steig:LONGREAL;
  74.                         VAR Lambda:LFeld;
  75.                         VAR Index,Farbversch:INTEGER);
  76.                         
  77. PROCEDURE Plot_Sw (X,Y,Farbe:INTEGER);
  78.  
  79.  
  80. PROCEDURE Plot (X,Y,Farbe:INTEGER);
  81.  
  82.  
  83. END RayTrace.
  84.